home *** CD-ROM | disk | FTP | other *** search
/ 100 Plus Great Games 2 / 100PLUSV2.BIN / games / TwoRings.dxr / 00061_tableau cards.ls < prev    next >
Encoding:
Text File  |  2002-01-25  |  2.3 KB  |  66 lines
  1. property spriteNum
  2. global tableau, stock, equal, hotcard, foundation, points, waste, deals
  3.  
  4. on beginSprite
  5.   sprite(spriteNum).member = stock.cards[1].rank & "_" & stock.cards[1].suit
  6.   stock.cards.deleteAt(1)
  7.   tableau.addProp(makesymbol(spriteNum), new(script("foundation object"), []))
  8.   tableau[makesymbol(spriteNum)].addCard(new(script("card"), spriteNum))
  9. end
  10.  
  11. on mouseDown
  12.   if member(sprite(spriteNum).memberNum).name <> "block" then
  13.     puppetSound(3, "pickcard")
  14.     sprite(spriteNum).moveableSprite = 1
  15.     sprite(spriteNum).loc = the mouseLoc
  16.     sprite(spriteNum).locZ = spriteNum + 1000
  17.   end if
  18. end
  19.  
  20. on mouseUp
  21.   if equal = 1 then
  22.     puppetSound(3, "pickcard")
  23.     sprite(spriteNum).visible = 0
  24.     sprite(spriteNum).moveableSprite = 0
  25.     sprite(spriteNum).loc = tableau[makesymbol(spriteNum)].getlastcard().location
  26.     sprite(spriteNum).locZ = spriteNum
  27.     sprite(hotcard).member = tableau[makesymbol(spriteNum)].getlastcard().membername
  28.     foundation[makesymbol(hotcard)].addCard(new(script("card"), hotcard))
  29.     tableau[makesymbol(spriteNum)].cards.deleteAt(tableau[makesymbol(spriteNum)].cards.count)
  30.     points = points + 10
  31.     if waste.cards.count > 0 then
  32.       sprite(spriteNum).member = waste.getlastcard().membername
  33.       waste.cards.deleteAt(waste.cards.count)
  34.       tableau[makesymbol(spriteNum)].addCard(new(script("card"), spriteNum))
  35.       if waste.cards.count > 0 then
  36.         sprite(30).member = waste.getlastcard().membername
  37.       else
  38.         sprite(30).member = "block"
  39.       end if
  40.     else
  41.       if stock.cards.count > 0 then
  42.         sprite(spriteNum).member = stock.cards[1].rank & "_" & stock.cards[1].suit
  43.         stock.cards.deleteAt(1)
  44.         tableau[makesymbol(spriteNum)].addCard(new(script("card"), spriteNum))
  45.         if stock.cards.count = 0 then
  46.           if deals < 1 then
  47.             sprite(29).member = "replenish"
  48.           else
  49.             sprite(29).member = "stop"
  50.           end if
  51.         end if
  52.       else
  53.         sprite(spriteNum).member = "block"
  54.       end if
  55.     end if
  56.     sprite(spriteNum).visible = 1
  57.     checklose()
  58.   else
  59.     puppetSound(3, "dropcard")
  60.     sprite(spriteNum).moveableSprite = 0
  61.     sprite(spriteNum).loc = tableau[makesymbol(spriteNum)].getlastcard().location
  62.     sprite(spriteNum).locZ = spriteNum
  63.   end if
  64.   checkwin()
  65. end
  66.